home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / hrace.bas < prev    next >
BASIC Source File  |  1988-11-09  |  7KB  |  240 lines
  1. 5 S1=25:S2=25:S3=25:S4=25:S5=25:S6=25:S7=25:S8=25:S9=25:S10=25
  2. 10 REM ** DELUXE HORSE RACING **
  3. 20 REM ** BY CHRIS HUDSON AND JON RITZ **
  4. 25 RANDOMIZE VAL(MID$(TIME$,7,2))
  5. 30 SCREEN 2
  6. 35 KEY OFF
  7. 40 CLS
  8. 45 LINE (11,2)-(14,2)
  9. 300 PRINT "Welcome to The Meadows horse racing tracks! The races are about to begin so get your bets in!"
  10. 305 PRINT
  11. 308 PRINT
  12. 310 INPUT "How much money are you taking to the track this evening";ADOW
  13. 311 IF X=1 THEN 315
  14. 315 PRINT
  15. 320 PRINT "Here are the horses and the odds:"
  16. 325 PRINT
  17. 330 PRINT "1. Lightnin'       3 to 1"
  18. 340 PRINT "2. Joey            3 to 1"
  19. 350 PRINT "3. Benny's Girl    5 to 1"
  20. 360 PRINT "4. Maiden         12 to 1"
  21. 370 PRINT "5. Lady Anne      17 to 1"
  22. 380 PRINT "6. Stranger Eyes  25 to 1"
  23. 390 PRINT "7. Spooky         48 to 1"
  24. 400 PRINT "8. Runaway        56 to 1"
  25. 410 PRINT "9. Painter's Cap  65 to 1"
  26. 420 PRINT "10. Tom Sawyer    72 to 1"
  27. 430 PRINT
  28. 440 PRINT:INPUT "Which horse would you like to bet on";AHORSE
  29. 445 IF X=1 THEN 455
  30. 455 PRINT
  31. 460 INPUT "How much would you like to bet";ABET
  32. 465 IF ABET>ADOW THEN 470 ELSE 480
  33. 470 PRINT "You don't have that much!"
  34. 475 PRINT:GOTO 460
  35. 480 IF X=1 THEN 510
  36. 495 IF BBET>BDOW THEN 500 ELSE 510
  37. 500 PRINT "You don't have that much!"
  38. 505 PRINT:GOTO 490
  39. 510 CLS
  40. 520 IF SEE=0 THEN 521 ELSE 705
  41. 521 DIM AHORSE(500)
  42. 522 SEE=SEE+1
  43. 525 LINE (14,1)-(15,1)
  44. 530 LINE (13,2)-(16,2)
  45. 535 LINE (12,3)-(17,3)
  46. 540 LINE (5,4)-(14,4)
  47. 545 LINE (2,5)-(14,5)
  48. 550 LINE (1,6)-(2,6)
  49. 555 LINE (5,6)-(13,6)
  50. 560 LINE (6,7)-(7,7)
  51. 565 LINE (11,7)-(12,7)
  52. 570 LINE (7,8)-(8,8)
  53. 575 LINE (10,8)-(11,8)
  54. 580 PSET (8,9)
  55. 585 PSET (10,9)
  56. 610 GET (1,1)-(17,9),AHORSE
  57. 620 CLS
  58. 630 IF BSEE=1 THEN 640 ELSE 631
  59. 631 DIM BHORSE(500)
  60. 632 BSEE=1
  61. 640 LINE (12,1)-(13,1)
  62. 645 LINE (11,2)-(14,2)
  63. 650 LINE (10,3)-(15,3)
  64. 655 LINE (5,4)-(12,4)
  65. 656 LINE (2,5)-(12,5)
  66. 657 PSET (2,5)
  67. 658 LINE (1,6)-(2,6)
  68. 660 LINE (5,6)-(11,6)
  69. 665 PSET (5,7)
  70. 670 LINE (11,7)-(12,7)
  71. 675 LINE (4,8)-(5,8)
  72. 680 LINE (12,8)-(13,8)
  73. 685 LINE (3,9)-(4,9)
  74. 690 PSET (13,9)
  75. 700 GET (1,1)-(17,9),BHORSE
  76. 705 S1=25:S2=25:S3=25:S4=25:S5=25:S6=25:S7=25:S8=25:S9=25:S10=25
  77. 706 CLS
  78. 707 LINE (500,5)-(500,180)
  79. 708 LOCATE 23,56:PRINT "FINISH   LINE"
  80. 710 LOCATE 2,1:PRINT "1."
  81. 720 LOCATE 4,1:PRINT "2."
  82. 730 LOCATE 6,1:PRINT "3."
  83. 740 LOCATE 8,1:PRINT "4."
  84. 750 LOCATE 10,1:PRINT "5."
  85. 760 LOCATE 12,1:PRINT "6."
  86. 770 LOCATE 14,1:PRINT "7."
  87. 780 LOCATE 16,1:PRINT "8."
  88. 790 LOCATE 18,1:PRINT "9."
  89. 800 LOCATE 20,1:PRINT "10."
  90. 810 PUT (25,6),BHORSE
  91. 820 PUT (25,22),BHORSE
  92. 830 PUT (25,38),BHORSE
  93. 840 PUT (25,54),BHORSE
  94. 850 PUT (25,70),BHORSE
  95. 860 PUT (25,86),BHORSE
  96. 870 PUT (25,102),BHORSE
  97. 880 PUT (25,118),BHORSE
  98. 890 PUT (25,134),BHORSE
  99. 900 PUT (25,150),BHORSE
  100. 901 LOCATE 22,1:PRINT "You are horse #"AHORSE"."
  101. 902 LOCATE 23,1:PRINT "Press any key to start the race...."
  102. 903 JON$=INKEY$:IF JON$="" THEN 903
  103. 904 LOCATE 22,1:PRINT "                            "
  104. 905 LOCATE 23,1:PRINT "                                        "
  105. 910 REM ** AHORSE 1 **
  106. 920 PUT (S1,6),BHORSE
  107. 930 S1=S1+INT(RND*12+1)
  108. 940 PUT (S1,6),AHORSE
  109. 970 REM ** AHORSE 2
  110. 980 PUT (S2,22),BHORSE
  111. 990 S2=S2+INT(RND*12+1)
  112. 1000 PUT (S2,22),AHORSE
  113. 1010 REM ** AHORSE 3 **
  114. 1020 PUT (S3,38),BHORSE
  115. 1030 S3=S3+INT(RND*12+1)
  116. 1040 PUT (S3,38),AHORSE
  117. 1045 REM ** AHORSE 4 **
  118. 1050 PUT (S4,54),BHORSE
  119. 1060 S4=S4+INT(RND*12+1)
  120. 1070 PUT (S4,54),AHORSE
  121. 1080 REM ** AHORSE 5 **
  122. 1090 PUT (S5,70),BHORSE
  123. 1100 S5=S5+INT(RND*12+1)
  124. 1110 PUT (S5,70),AHORSE
  125. 1120 REM ** AHORSE 6 **
  126. 1130 PUT (S6,86),BHORSE
  127. 1140 S6=S6+INT(RND*11+1)
  128. 1150 PUT (S6,86),AHORSE
  129. 1160 REM ** AHORSE 7 **
  130. 1170 PUT (S7,102),BHORSE
  131. 1180 S7=S7+INT(RND*11+1)
  132. 1190 PUT (S7,102),AHORSE
  133. 1200 REM ** AHORSE 8 **
  134. 1210 PUT (S8,118),BHORSE
  135. 1220 S8=S8+INT(RND*11+1)
  136. 1230 PUT (S8,118),AHORSE
  137. 1235 REM AHORSE 9
  138. 1250 PUT (S9,134),BHORSE
  139. 1260 S9=S9+INT(RND*11+1)
  140. 1270 PUT (S9,134),AHORSE
  141. 1280 REM ** AHORSE 10 **
  142. 1290 PUT (S10,150),BHORSE
  143. 1300 S10=S10+INT(RND*11+1)
  144. 1310 PUT (S10,150),AHORSE
  145. 1320 IF S1>500 THEN 1325 ELSE 1330
  146. 1325 WINNER$="Lightnin', #1":GOTO 2000
  147. 1330 IF S2>500 THEN 1335 ELSE 1340
  148. 1335 WINNER$="Joey, #2":GOTO 2000
  149. 1340 IF S3>500 THEN 1345 ELSE 1350
  150. 1345 WINNER$="Benny's Girl, #3":GOTO 2000
  151. 1350 IF S4>500 THEN 1355 ELSE 1360
  152. 1355 WINNER$="Maiden, #4":GOTO 2000
  153. 1360 IF S5>500 THEN 1365 ELSE 1370
  154. 1365 WINNER$="Lady Anne, #5":GOTO 2000
  155. 1370 IF S6>500 THEN 1375 ELSE 1380
  156. 1375 WINNER$="Stranger Eyes, #6":GOTO 2000
  157. 1380 IF S7>500 THEN 1385 ELSE 1390
  158. 1385 WINNER$="Spooky, #7":GOTO 2000
  159. 1390 IF S8>500 THEN 1395 ELSE 1400
  160. 1395 WINNER$="Runaway, #8":GOTO 2000
  161. 1400 IF S9>500 THEN 1405 ELSE 1410                        FINISH   LINE
  162. 1405 WINNER$="Painter's Cap, #9":GOTO 2000
  163. 1410 IF S10>500 THEN 1415 ELSE 1500                       FINISH   LINE
  164. 1415 WINNER$="Tom Sawyer, #10":GOTO 2000
  165. 1500 REM **  BHORSE 1 **
  166. 1510 PUT (S1,6),AHORSE
  167. 1520 S1=S1+INT(RND*5+5)
  168. 1530 PUT (S1,6),BHORSE
  169. 1540 REM **  BHORSE 2 **
  170. 1550 PUT (S2,22),AHORSE
  171. 1560 S2=S2+INT(RND*5+5)
  172. 1570 PUT (S2,22),BHORSE
  173. 1580 REM **  BHORSE 3 **
  174. 1590 PUT (S3,38),AHORSE
  175. 1600 S3=S3+INT(RND*5+5)
  176. 1610 PUT (S3,38),BHORSE
  177. 1620 REM **  BHORSE 4 **
  178. 1630 PUT (S4,54),AHORSE
  179. 1640 S4=S4+INT(RND*5+5)
  180. 1650 PUT (S4,54),BHORSE
  181. 1660 REM **  BHORSE 5 **
  182. 1670 PUT (S5,70),AHORSE
  183. 1680 S5=S5+INT(RND*5+1)
  184. 1690 PUT (S5,70),BHORSE
  185. 1700 REM **  BHORSE 6 **
  186. 1710 PUT (S6,86),AHORSE
  187. 1720 S6=S6+INT(RND*5+1)
  188. 1730 PUT (S6,86),BHORSE
  189. 1740 REM **  BHORSE 7 **
  190. 1750 PUT (S7,102),AHORSE
  191. 1760 S7=S7+INT(RND*5+1)
  192. 1770 PUT (S7,102),BHORSE
  193. 1780 REM **  BHORSE 8 **
  194. 1790 PUT (S8,118),AHORSE
  195. 1800 S8=S8+INT(RND*5+1)
  196. 1810 PUT (S8,118),BHORSE
  197. 1820 REM **  BHORSE 9 **
  198. 1830 PUT (S9,134),AHORSE
  199. 1840 S9=S9+INT(RND*5+5)
  200. 1850 PUT (S9,134),BHORSE
  201. 1860 REM **  BHORSE 10 **
  202. 1870 PUT (S10,150),AHORSE
  203. 1880 S10=S10+INT(RND*5+5)
  204. 1890 PUT (S10,150),BHORSE
  205. 1900 GOTO 910
  206. 2000 LOCATE 20,1:PRINT "....And the winner is "WINNER$".        "
  207. 2010 IF WINNER$="Lightnin', #1" THEN WH=1
  208. 2015 IF WINNER$="Joey, #2" THEN WH=2
  209. 2020 IF WINNER$="Benny's Girl, #3" THEN WH=3
  210. 2025 IF WINNER$="Maiden, #4" THEN WH=4
  211. 2030 IF WINNER$="Lady Anne, #5" THEN WH=5
  212. 2035 IF WINNER$="Stranger Eyes, #6" THEN WH=6
  213. 2040 IF WINNER$="Spooky, #7" THEN WH=7
  214. 2045 IF WINNER$="Runaway, #8" THEN WH=8
  215. 2050 IF WINNER$="Painter's Cap, #9" THEN WH=9
  216. 2055 IF WINNER$="Tom Sawyer, #10" THEN WH=10
  217. 2060 IF AHORSE=WH THEN 2500
  218. 2065 LOCATE 22,1:PRINT "Sorry, you lose."
  219. 2066 ADOW=ADOW-ABET
  220. 2070 LOCATE 23,1:PRINT "You lose"ABET"dollars. You now have"ADOW"dollars."
  221. 2075 LOCATE 24,1:PRINT "Press any key to continue...."
  222. 2080 JON$=INKEY$:IF JON$="" THEN 2080
  223. 2085 CLS:GOTO 320
  224. 2500 IF WH=1 THEN ABET=ABET*3
  225. 2505 IF WH=2 THEN ABET=ABET*3
  226. 2510 IF WH=3 THEN ABET=ABET*5
  227. 2515 IF WH=4 THEN ABET=ABET*12
  228. 2520 IF WH=5 THEN ABET=ABET*17
  229. 2525 IF WH=6 THEN ABET=ABET*25
  230. 2530 IF WH=7 THEN ABET=ABET*48
  231. 2535 IF WH=8 THEN ABET=ABET*56
  232. 2540 IF WH=9 THEN ABET=ABET*65
  233. 2545 IF WH=10 THEN ABET=ABET*72
  234. 2546 ADOW=ADOW+ABET
  235. 2550 LOCATE 22,1:PRINT "YOU WIN!!!"
  236. 2555 LOCATE 23,1:PRINT "YOU WIN"ABET"DOLLARS!!"
  237. 2650 LOCATE 24,1:PRINT "Press any key to continue..."
  238. 2655 JON$=INKEY$:IF JON$="" THEN 2655
  239. 2660 CLS:GOTO 320
  240.